Public Class GestorGenerarReportes

    Private ultimoReporte As String

    Public Sub GenerarReporteInvidual(ByVal carnet As String, ByVal idGrupo As Integer)
        Dim estudiante As Estudiante = MultiEstudiante.levantarEstudianteXGrupo(idGrupo, carnet)
        Dim grupo As Grupo = MultiGrupo.BuscarGrupo(idGrupo)
        Dim generador As New GeneradorReporte
        generador.CrearReporteEstudiante(estudiante, grupo)
        ultimoReporte = generador.URL
    End Sub

    Public Function GenerarReporteGrupal(ByVal idGrupo As Integer) As String
        Dim grupo As Grupo = MultiGrupo.BuscarGrupo(idGrupo)
        Dim url As String = (New GeneradorReporte).ObtenerUrlReporte(grupo)
        Return url
    End Function

    Public ReadOnly Property URL() As String
        Get
            Return ultimoReporte
        End Get
    End Property

    Public Sub EnviarReporte(ByVal carnet As String, ByVal idGrupo As Integer)
        Dim estudiante As Estudiante = MultiEstudiante.levantarEstudianteXGrupo(idGrupo, carnet)
        Dim grupo As Grupo = MultiGrupo.BuscarGrupo(idGrupo)
        Dim generador As New GeneradorReporte
        generador.EnviarReporte(estudiante, grupo)
    End Sub
End Class
